﻿Imports System.Web.DynamicData

Partial Class admin_general_DynamicData
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim visibleTables As IList = ASP.global_asax.DefaultModel.VisibleTables
        If visibleTables.Count = 0 Then
            Throw New InvalidOperationException("There are no accessible tables. " &
                "Make sure that at least one data model is registered in Global.asax " &
                "and scaffolding is enabled or implement custom pages.")
        End If
        Menu1.DataSource = visibleTables
        Menu1.DataBind()

    End Sub
End Class
